home *** CD-ROM | disk | FTP | other *** search
/ MPEG Archives / MPEG Archives.iso / mpeg / files / unit1.pas < prev   
Pascal/Delphi Source File  |  1996-12-28  |  4KB  |  190 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls, FileCtrl;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     flb1: TFileListBox;
  12.     Timer1: TTimer;
  13.     Panel2: TPanel;
  14.     Image2: TImage;
  15.     Panel1: TPanel;
  16.     Image1: TImage;
  17.     Label2: TLabel;
  18.     Label1: TLabel;
  19.     flb2: TFileListBox;
  20.     Panel3: TPanel;
  21.     Image3: TImage;
  22.     DLB: TDirectoryListBox;
  23.     Label3: TLabel;
  24.     Label4: TLabel;
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure Timer1Timer(Sender: TObject);
  27.     procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  28.       Y: Integer);
  29.     procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  30.       Y: Integer);
  31.     procedure Label2Click(Sender: TObject);
  32.     procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  33.       Y: Integer);
  34.     procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  35.       Y: Integer);
  36.     procedure Label1Click(Sender: TObject);
  37.     procedure DLBChange(Sender: TObject);
  38.     procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
  39.       Y: Integer);
  40.     procedure Label3Click(Sender: TObject);
  41.     procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  42.       Y: Integer);
  43.     procedure Label4Click(Sender: TObject);
  44.     procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
  45.       Shift: TShiftState; X, Y: Integer);
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  51.  
  52. var
  53.   Form1: TForm1;
  54.   i,J,p:integer;
  55.   down:Boolean;
  56.   S:sTRING;
  57.   CMD:ARRAY[0..255] OF CHAR;
  58.  
  59. implementation
  60.  
  61. {$R *.DFM}
  62.  
  63. procedure TForm1.FormCreate(Sender: TObject);
  64. begin
  65. p:=5;
  66. flb1.directory:='\a';
  67. flb2.directory:='\mpeg\li';
  68. DOWN:=TRUE;
  69. i:=-p;
  70. end;
  71.  
  72. procedure TForm1.Timer1Timer(Sender: TObject);
  73. begin
  74. IF DOWN THEN
  75. BEGIN
  76. i:=i+p;
  77. image1.picture.loadfromfile('\a\'+flb1.items[I]);
  78. if i=720-p then i:=-p;
  79. END;
  80.  
  81. end;
  82.  
  83. procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  84.   Y: Integer);
  85. begin
  86. LABEL1.FONT.COLOR:=CLgRAY;
  87. LABEL2.FONT.COLOR:=CLgRAY;
  88. LABEL3.FONT.COLOR:=CLgRAY;
  89. LABEL4.FONT.COLOR:=CLgRAY;
  90. end;
  91.  
  92. procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  93.   Y: Integer);
  94. begin
  95. LABEL2.FONT.COLOR:=CLLIME;
  96.  
  97. end;
  98.  
  99. procedure TForm1.Label2Click(Sender: TObject);
  100. begin
  101. CLOSE;
  102. end;
  103.  
  104. procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  105.   Y: Integer);
  106. begin
  107. label1.font.color:=cllime;
  108. end;
  109.  
  110. procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  111.   Y: Integer);
  112. begin
  113. PANEL3.VISIBLE:=FALSE;
  114. FLB2.VISIBLE:=TRUE;
  115. DLB.VISIBLE:=TRUE;
  116. LABEL3.CAPTION:='HIDE';
  117. end;
  118.  
  119. procedure TForm1.Label1Click(Sender: TObject);
  120. begin
  121. fOR J:=0 TO FLB2.ITEMS.COUNT-1 DO
  122. IF FLB2.SELECTED[J] THEN
  123. BEGIN
  124. STRPCOPY(CMD,'\MPEG\DMPEG -l0 '+DLB.DIRECTORY+'\'+FLB2.ITEMS[J]);
  125. WINEXEC(CMD,sw_SHOWNORMAL);
  126. FLB2.VISIBLE:=FALSE;
  127. DLB.VISIBLE:=FALSE;
  128. PANEL3.VISIBLE:=TRUE;
  129. LABEL3.CAPTION:='VIEW';
  130. END;
  131. end;
  132.  
  133. procedure TForm1.DLBChange(Sender: TObject);
  134. begin
  135. FLB2.DIRECTORY:=DLB.DIRECTORY;
  136. end;
  137.  
  138. procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
  139.   Y: Integer);
  140. begin
  141. label3.font.color:=cllime;
  142. end;
  143.  
  144. procedure TForm1.Label3Click(Sender: TObject);
  145. begin
  146. IF LABEL3.CAPTION='VIEW' THEN
  147. BEGIN
  148. PANEL3.VISIBLE:=FALSE;
  149. FLB2.VISIBLE:=TRUE;
  150. DLB.VISIBLE:=TRUE;
  151. LABEL3.CAPTION:='HIDE';
  152. END
  153. ELSE
  154. BEGIN
  155. PANEL3.VISIBLE:=TRUE;
  156. FLB2.VISIBLE:=FALSE;
  157. DLB.VISIBLE:=FALSE;
  158. LABEL3.CAPTION:='VIEW';
  159. END
  160.  
  161.  
  162. end;
  163.  
  164. procedure TForm1.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  165.   Y: Integer);
  166. begin
  167. label4.font.color:=cllime;
  168. end;
  169.  
  170. procedure TForm1.Label4Click(Sender: TObject);
  171. begin
  172. strpcopy(cmd,'explorer \');
  173. winexec(cmd,SW_shownormal);
  174. end;
  175.  
  176. procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  177.   Shift: TShiftState; X, Y: Integer);
  178. begin
  179.  
  180. if (button=mbleft) and (p<=5) and (p>0) then p:=p-1;
  181. if (button=mbright) and (p<5) then p:=p+1;
  182. if (Button=mbLeft)and (p>5) then p:=p-5;
  183. if (button=mBright) and (p>=5) then p:=p+5;
  184.  
  185. if p>20 then p:=20;
  186. i:=0;
  187. end;
  188.  
  189. end.
  190.